www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/User/Chengyuan.asp

    <%
qid=request.querystring("qid") 
set rsmsg=server.createobject("adodb.recordset")
    sqlmsg="select * from quan where id="&qid
    rsmsg.open sqlmsg,conn,1,3
%>
<div align="center">
	<table border="0" width="733" height="324" cellpadding="0" cellspacing="1" bgcolor="#E4E4E4">
		<tr>
			<td height="28" width="733" bgcolor="#FFFFFF">
			<p align="center">管理【<font color="#FF0000"><%=rsmsg("name")%></font>】圈内成员</td>
		</tr>
		<tr>
			<td height="268" width="733" bgcolor="#FFFFFF" valign="top">
			<div align="center">

<table border="0" width="99%" cellpadding="0" cellspacing="2">

	<%
	set rsmm=server.CreateObject("adodb.recordset")
sqlmm="select  * from  Quan_ren where qid="&qid&" and sqr<>'"&username&"' order by id desc"
rsmm.open sqlmm,conn,1,1

if rsmm.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>没有任何成员加入该圈</td></tr>
<% else 


  k=1
%>
<tr>
<% do while not rsmm.eof%>

<td width="25%" height="22">·【<a href="userinfo.asp?user=<%=rsmm("sqr")%>" target=_blank><%=rsmm("sqr")%></a>】 [<a href="Deal_user.asp?action=tiren&qid=<%=qid%>&id=<%=rsmm("id")%>"><font color="#008000">踢人</font></a>]
</td>
<% if k mod 4 =0 then%> 
</tr><tr  height="30">
<% end if%><% k=k+1
   rsmm.movenext
   loop
end if
rsmm.close
set rsmm=nothing
%>

	</tr>
</table>

</div>

			
			</td>
		</tr><form method="POST" action="Deal_user.asp?action=laren&qid=<%=request.querystring("qid")%>">
		<tr>
			<td height="26" width="733" bgcolor="#FFFFFF">
			<p align="center">&nbsp;拉人进圈，请输入会员名：<input type="text" name="username" size="20">
			<input type="submit" value="拉 人" name="B1"></td>
		</tr>
	</table>
</div>